RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


D 12 


— 
2 
ua 
a 
” 
(=) 
* 
= 
a 
— 
* 
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oe 
—— 
a 
ee ee ee ee ee ee 
ee eee ee eee 
= 
tote 
oe 
— 
22222222222 222 
22222222 222222 
zz 
za 
za 
22a 
zZ2zz 
zz 
222222222 22222 
22222222222 222 
wow ww 
wu wu 
wu ww wu 
uu uw ww 
wu uw wu 
wu ww wou 
wu us Mou 
ww ww wus 


aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aqaaaagaaaadgdcadaaqaa 
aaaaaaaaaaaaaa 
nw MNNMWM 
nw ANMNM 
nn nw nw 
nn nn mw 
nn nw nn 
nn nw “mn 
nn nn nn 
nn mn nn 
ANYMM nw 
ANMM nn 
Sooaoaaaaaana 
ESo0000008h 
aa aa 
aa aa 
aa aa 
oo ao 
ao aa 
aa aa 
ecoocoaoaocoaoaaaasa 
eocoooaoooaoooaacansa 
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Processes the several .DISPLAY <item> directive 18-56 =300713 4 + 90: 4 39 AX-11 Bliss-32 V4.0-74 Page 1 
-Sep-1984 6: RUNOFF ..SRCJDSPENT.BLI; (1) 


al ian <item> directives’ 


ADDRESSING _MODE (EXTERNAL = =_LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES] 


MODULE dspent ( 


ZTITLE ‘Processe 


BEGIN 


ESSE ESSS EST TESST TTT TTT TTT Tec cece eerie circ cc i ici i rit i iii ci ici i ii iiiiit. 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
's DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE i, FURNISHED UNDER A LICENSE AND MAY BE USED AND corte? 
't ONLY aH ee NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 

® 

® 

® 

* 

® 

*® 

* 

i 0 . 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
' ® 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE W T NOTICE * 
® 

* 

® 

® 

a 

© 

® 

® 


ECT T 
i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG 
Hed CORPORATION. 


ITHOU TIC 
TAL EQUIPMEN 


B FOR THE USE OR RELIABILITY OF ITS 


DIGITAL ASSUMES NO RESPONS Y 
C NOT SUPPLIED BY DIGITAL. 


: IBILIT 
't SOFTWARE ON EQUIPMENT WHICH IS 


SOooOOoCoCoOoCoOooOoCoOoOoOoOOOOoOoOOoOoOoOoOoOO 
pepe jo fw lolojeleloeleleleloelelololelololololelelolololeo) 


Lee ERA AEE EAA EAA AEA AAA 
' 
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! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: 


1 

1 

! Processes .DISPLAY EXAMPLE, .DISPLAY FIGURE, .DISPLAY TABLE, 
.DISPLAY APPENDIX, and .DISPLAY CHAPTER directives. 
1 

q 

' 


CooQooooooooooo 
FS SWANN WWII inonoponononononornyp 


i ENVIRONMENT: Transportable 
i AUTHOR: Keith Dawson CREATION DATE: April 1982 


SOOooooooooooooo 


So 


004 


Be Se Se Se Se Se Se Se Ss Se FH SH OF Os He Be Se Se Be Bs Se Be Se S45 Ss Se Be Se OH Se BH Se Oe Se Oe SESE Hes Oe BH Se es 
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tt 9 PPP PP PMP HS HS PS Sh SS SS Ss SS Ss Ss SS SS Ss SG S 4 4 4 41D 
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DSPENT Processes the several .DISPLAY <item> directive 16-Sep-1984 AX-11 Bliss-32 V4.0 P 

v04=000 Revision History th-be0-1984 PE:64:8S — ERUnoer Saeipstent oi ce age 3f 

>; «645 44 1 SSBTTL ‘Revision History’ 

: re Re 1 MODIFIED BY: 

: 48 0047 1! 008 KFA00008 Ken Alden 01-Aug-1983 

>; 49 0048 1! Fixed bug: -DISPLAY APPENDIX never got added during work 

. a. 0049 1! of #00 

; f 0050 1! 

: 26 B32) sf 007 KAD00007 Keith Dawson 09-May-1983 

; 3 O26 1} Fixed bug: .DISPLAY canyth ing? was overwriting the NPAGEN 

: ee Onee ! value of the <p display code. Missing BEGIN-END. 

: 36 0055 1! 006 REM00006 ay Marshall | 27<April=1983 

: ef B52$ ! } Conditionalized s module so that it can be compiled for DSR 

: §9 0058 1! unavailable to DSR. DSR now uses this module to process the 

3 oo BR28 ’ } .DISPLAY APPENDIX and DISPLAY CHAPTER directives. 

: 6¢ 0061 1! 005 REROOOOS Ron Randall 19-Apr-1983 

; or p06 : Fixed bug in capturing pre/poststrings on entities. 

: 65 0064 1! 004 KFA00004 Alden 30-Mar-1983 

3 08 Bpe2 : Fixed bug in dieplarton chapter page numbers 

: 68 0067 1! 003 KFA00003 Ken Alden 07-Mar-1983 | 
3 69 0068 1! Global edit of all modules. Udated module names, idents, 
3 4 isk : copyright dates. Changed require files to BLISS library. 
: 72 0071 1— 


] 
| 
| 
| 
without trying to brin _~ iy logic or use symbols 
| 
| 


v04-000 Module Level Declarations 


cf o? XSBTTL ‘Module Level Declarations’ 

7? 7 ! TABLE OF CONTENTS: 

19 ors | | 

78 07 FORWARD ROUTINE 

79 07 DSPENT : NOVALUE; 

80 07 ! 

81 07 ! INCLUDE FILES: 

6 08 : 

8 008 LIBRARY "NXPORT:XPORT'; 

Se Bos REQUIRE ‘REQ:RNODEF'; 

6 U 1 ZIF DSRPLUS X%THEN 

87 U 021 LIBRARY ‘REQ:DPLLIB'; 

88 021 ZELSE 

89 021 LIBRARY ‘REQ:DSRLIB'; 

90 021 tFI 

91 021 

S 0 § : 

9 0 ! OWN STORAGE: 

94 8 : 

95 OWN 

96 fs_allocate (e_pre_string, 10), 

97 2 (e_post_string, 10), 
fs_allocate (f_pre_string, 10), 

99 fs_allocate (f_post_string, 10), 
fs_allocate (t_pre_string, 10), 
fs_allocate (t_post_string, 10); 


EXTERNAL REFERENCES: 


EXTERNAL 
ecc : S$ecc_blockvector, 
pagen : page_definition, 
nee en : page definition, 
List 
ra 


MPWn— 


: counted List, 
: fixed_string; 


EXTERNAL LITERAL 
rnfqst; 


EXTERNAL ROUTINE 


rskips, 
skpsep; 


OWONAUNE WIN 9 OD NAUE WN 9 ODNAUES WN OOO NOUE WN (OO ONOUL WN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
! fs_allocate 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Be Se Ge Se Se Ge Se Ge Se Se Ge Ge Se Ge Ge Se SH Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Se Se Se Se Se Se Se Sees Se Se Se Se Sete Se Sse Se eses 
oO 
co 


ce ce ee ee ed et ed oe = ow 
NYsoseo ros =aesssSeessses 
COSSSCSDOCOSCOCOCODOOO OOO OOOO OCO 


—"SODOONOUSWN—O0OOn 
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' XPORT Library ; 
' RUNOFF variant definitions 


' DSRPLUS BLISS Library 
! DSR BLISS Library 
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DSPENT Processes the several .DISPLAY <item> directive 16-Sep-1984 00:21: AX=-11 Bliss-32 V4.0-74 Page 4 DSPH 
v04-000 DSPENT == main routine 12=808-1 982 99:55:63 RUNOFF .SRCIDSPENT.BLI; . (4) V4" 
; Ves 0 1 XSBTTL 'DSPENT == main routine’ 

; : ¢ 1 ! GLOBAL ROUTINE dspent (HANDLER) : NOVALUE = 

> 126 0 : 1 S44 

; ' 4 0 2¢ ! FUNCTIONAL DESCRIPTION: 

; ia 28 1! Processes .DISPLAY EXAMPLE, FIGURE, TABLE, CHAPTER, and APPENDIX 

; : ? 8 ef ' directives. 
; : ¢ 8 23 : FORMAL PARAMETERS: 
3 } 7 8 o } HANDLER = Indicates which command is to be processed. 

; : | 
s 136 0568 1 ! IMPLICIT INPUTS: None 
; 137 0264 1! 

: 138 0265 1! IMPLICIT OUTPUTS: 
: 139 0266 1! | 
3 i" psoe : Updates the appropriate field in the ECC blockvector structure. 

: 146 ogee 1 ! ROUTINE VALUE: 

; 414 0270 1 ! COMPLETION CODES: None 

> (144 o¢7) 1! 

; 145 0 ie 1 ! SIDE EFFECTS: None 

: 146 os? 1 !<- 

3: 147 0274 1 

3: 148 0275 § BEGIN 

; 149 0276 LOCAL 
; 150 0277 2 getdd_result 
; (151 0278 § get_pre_result, 
3 138 0279 et_post_result, 
; 1 0280 § isplay_code, 

> 154 0281 offset; 

: «155 i404 § 
s 136 028 offset = (SELECTONE .handler OF 
; 137 0284 3 SET 
; 158 U 0285 3 ZIF dsrplus XTHEN 
; 159 U 0286 h_display_examp] : examp_offset; 
: 160 U 6287 h_display_figur] : figur_offset; 

; 161 U 0288 h_display_table] : table_offset; 

; 1o¢ 0289 xFI 

; «(16 0290 fh_display_chapt : chap_offset; 

: 164 0291 h_display_appen] : append_offset; | 
> «165 U i944 ZIF dsrplus %THEN 

; 1968 U 029 Ch_display_head) : hcoll_offset + .hllist Ccl_index); 

s 0294 xFI 

; 168 8 95 TES); 

3 168 36 

; 170 029 fs_init (e_pre_string); 
> 171 9 98 fs-init (e-post_string); 

3 \7¢ 99 fs_init (f_pre_string); 

3; (17 0 90 fs"init (tipost string); 

: (174 301 fs_init (t_pre_string); 

; 175 30¢ fs-init (tZpost_string); 

3 Wee U 4 ZIF qscpius ZTHEN 

s 178 U 5 ! Skip spaces and tabs before the optional quoted string. 

; 179 u 0 rskips (ira); 


<FI 
! Skip a comma, spaces and tabs before the display descriptor. 
skpsep (ira); 


! Get the display discriptor. 
getdd_result = getdd (display_code); 


! Distinguish between missing display code and one that is given. 
-getdd_result EQL 0 
ioe isplay code supplied. Use the standard display as default. 


display_code = tconvrt_dec_noz; 
ZIF orpis ZTHEN 
! Skip a 


comma, spaces and tabs before the second optional quoted string. 
skpsep (ira); 


POPIPONPIPOPUPOPUPONOPOPON NUNN NoNoNN 
S ¥ 


NS an adds eek 


1 
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DSPENT Processes the several .DISPLAY <item> directive 1-56 =1984 00:21: AX=11 Bliss-32 V4.0-74 P oi 
v04-000 DSPENT == main routine 1228071382 99:60:65 RUNOFF .SRCJDSPENT.BLI; — (43 | 
180 u 0307 | 
181 U ! Try to get a quoted string. 
18 u | 03 get_precresult = (SELECTONE® chandler oF 
184 U 0311 hdisplay_examp] : getqs (e_pre_string); 
185 U \¢ hodisplay-f1 vr) : gotas (foprecstring): 
138 U 8 1 h_display_table] : getqs (t_pre_string); | 
188 U 0318 ote | 
189 u 0 ¢ ! Report error if specified string exceeded 5 characters. 
139 0 ! if -get_pre_result EQL getqs_too_long 
135 U 6 18 BEGIN 
19 U 8 0 
bo ¥ 8 1 SELECT OE «HANDLER OF 
196 U 03 5 h_display_examp) : 
ib 44 . 8 : erms (rnfqst, .fs_start (e_pre_string), .fs_length (e_pre_string)); 
199 U 08 8 Ch_display_figur] : 
201 : 83 erms (rnfqst, .fs start (f_pre_string), .fs_length (f_pre_string)); 
0 U 0399 Ch_display_table) : ; 
+ . bs , erms (rnfqst, .fs_start (t_pre_string), .fs_length (t_pre_string)); 
05 U 0332 TES; 
u 0 END; 
U 0334 
8 5 
0337 
0338 
$3 
; 
4 


win 


WAAL 


! Try to get a quot i 


e ng. 
get_post_result = (S$ Ne ehandler OF 


te ets et ~s 


0 
splay_examp] : getqs (e_post_string); 
splay_figur) : getqs (f_post_string); 
sp 


lay_table] : getqs (t_post_string); 


IAAI AI PONONOPPTY 


! Report error if t ecified string exceeded 5 characters. 


IF .get_post_resu getqs_too_long 
BEGIN 


AR W S SOO NOU ENN OOO NAME UT —Oo0o~ 
ro 


ccccccccccccccce 


PoRoNoPonoNoNaNoPoNoNoNofornygs 


PAO MMIII 


WWAWNAIAAAA WWW 


— 


Be Se Ge Se Ss Oe Se Se Se Se Se Se Se Ge Ge Ss Se Fe Se Se Ge FH Se Ge Fe Se Ge BH Se Ge Se Ge Se Ge Se Se Se BF Se Ge Se Se Ss Se Oe Se Oe HS S5 Oe Se SHS Se Stee 


ee — — } 


IF .offset EQL chap_offset 
THEN 


BEGIN 
pagen sct_chapt_d} 


tachapt splay_code; 
npagen ([sct_chapt_ 
END: 


= .di 
= .,display_code; 


IF_ .offset EQL append_offset 
THEN 


12 | 
DSPENT Processes the several .DISPLAY <item> directive IbeSe 1984 00:21: AX=-11 Blisg-32 V4.0-74 P | 
yO4-000 DSPENT == main routine 1 ~8ep-19 4 90:85:69 RUNOFF SREIDSPENT OL 124 mye: «a 
: Hf U 0364 SELECTONE .handler OF | 
; 239 U 66 h_display_examp] : | ; 
: re : 44 erms (rnfqst, .fs.start (e_post_string), .fs_length (e_post_string)); ; 
: 4g U 0 69 Ch_display_figur] : | ; 
: 344 : 8 oy erms (rnfqst, .fs_start (f_post_string), .fs_length (f_post_string)); : 
: 345 U 0372 Ch_display_table] : | : 
: re : 8 6 erms (rnfqst, .fs_start (t_post_string), .fs_length (t_post_string)); : 
: 248 U 0375 TES; 3 
BB OUREE gow : 
3 Hl : B55 Store the string(s) and descriptor gotten, if any. ; 
: 25 U 0380 a ee et_pre_result EQL getqs_normal) OR ; 
H See U $38; CSet"pre-result EQL setae too, Long) 3 
: $38 0388 BEGIN ; 
: 589 U 0384 SELECTONE .handler OF ; 
Be Re 4 : 
oot: splay rane) 2 
; oeg U 0389 ecc C.offset, ecc$a_pre_ptr] = .fs_start (e_pre_string); ; 
: 2 U 0390 ecc C.offset, ecc$h_pre_len] = .fs_length (e_pre_string); : 
: 264 Y 933) END; : 
: uae satay tour : 
; U 0395 ecc C.offset, ecc$a_pre_ptr] = .fs_start (f_pre_string); ; 
; U 0396 ecc CL.offset, ecc$h_pre len] = .fs_length (f_pre_string); : 
| Y 33h re : 
; U 0399 Ch_display tabled : ; 
; U 0400 BEGIN ; 
3 U 0401 ecc C.offset, ecc$a_pre_ptr] = .fs_start (t_pre_string); : 
: y ot 4 ecc L.offset, ecc$h_pre_len] = .fs_length (t_pre_string); : 
; U 0404 Ss; : 
: U 94 P END; : 
F 407 IF .getdd_result EQL 1 
H 408 THEN 
; 409 BEGIN 
: bait ecc C.offset, ecc$h_display_desc] = .display_code; 
; 41 
18 
; 14 4 
; 12 ? 
; 7 
; 19 

| 


ooo 
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eet 


ccccccccccccccccccccccccccecj 
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00000000 


00000000 


00000000 


00000000 


THEN 


12 
se DISPLAY <item> -Sep- 221: 
pee a. DISPL tem> directive 16-Sep-19 r 00:61:88 


BEG 
pagen 


END; 


IN 


“<IF Geretus ZTHEN 


sct_appen.d = 
npagen Lsct_appen = 
ENDS ~4ppen_ 


14-Sep-19 


-display_code; 
-display_code; 


(.get_post_result EQL getqs_normal) OR 


6.9 
BEGIN 
SEL 


-get_post_result EQL 


I 
ECTONE .handler OF 
SET 


Ch_displa J: 
. BesIN’ 


ecc C.offset, 
ecc C.offset, 


Ch_display_figur] : 
< BEGIN ~ . 


ecc 


offset, 
ecc C.offset, 


Ch.displayteble) : 
BEGIN 


0000000A 


0000000A 


0000000A 


0000000A 


ecc C.offset, 
ecc L.offset, 
ND 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


ecc$a_post_ptr 
ecc$h_post_len 


ecc$a_post_ptr] 
ecc$h_post_len] 


getqs_too_long) 


ecc$a_post_ptr] = .fs_start 
ecc$h_post_len] = 


-fs start 


-fs_start 


(e_post_string); 
-fs_length (e_post_string); 


(f_post_string); 
-fs length (f_post_string); 


(t_post_string); 
-fs_length (t_post_string); 


! End of DSPENT 


TITLE 
. IDENT 
.PSECT 

00000 E_PRE_STRING: 
. LONG 

010 BLKB 


0 ; 

OO1A “BLKB 

0001C E_POST_STRING: 
. LONG 

002¢ “BLKB 

0 -BLKB 

0038 F_PRE_STRING: 


wk 

4 “BLKB 

5 “BLKB 
0054 F_POST_STRING: 
. LONG 


DSPENT Processes the several .DISPLAY <item> di 


rect 
\V04-000\ 


SOWNS ,NOEXE ,2 


o NRO NO NO 
oa oa oa 
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_ 
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— 
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AX-11 Blis 
RUNOFF .SRC 


DSPENT P 
v04-000 Dd 


rocesses the se L .DISPLAY <item> di ive 1 -1984 
cocesses the several em> directive tfoBeo-1964 00:2) 
-BLKB 

aB0ee “Bike 

00000000 0000000A 00000000 00000000 PRE STAI: 


0 eh «BL 
QO8A -BLKB 
00000000 0000000A 00000000 00000000 a8 C TPOST sine! 
0009C -BLKB 
EXTRN 
~EXTRN 
~EXTRN 
XTRN 
PSECT 
000C 00000 ENTRY 
53 00000000' Ff 5 BRnos ey 
5E 4 C2 0000 SUBL 
50 04 AC 00 0000C MOVL 
1B 50 D1 0001 CMPL 
05 12 0001 BNEQ 
52 QA DO 0001 MOVL 
OD 11 00018 BRB 
1A 50 D1 QOOIA 1$: CMPL 
05 13 0001D BEQL 
52 01 CE OOO1F MNEGL 
03 11 00022 BRB 
52 0 DO 00024 $$: MOVL 
OC AS 04 00027 S$: CLRL 
63 10 AS 9E Q002A MOVAB 
04 AS 63 00 000 MOVL 
28 AS 04 000 CLRL 
1c A eC AS YE 0003 MOVAB 
20. «AS 1¢ AS 00 Bones MOVL 
44 AS 04 0003F CLRL 
38 = AS 48 A 7 BORs MOVAB 
3¢ AS 38 AZ 00 0004 MOVL 
60 AS D4 0004C CLRL 
54 OA 64 AS YE Q004F MOVAB 
58 OA 4 A3 00 00054 MOVL 
. A 4 00059 CLRL 
70 3 0088 C f iF MOVAB 
74 ~COA AS D 6 MOVL 
098 ~=6C¢ oe 06 CLRL 
008C cS m~ Ft F 8 MOVAB 
0090 C B85 C 3 MOVL 
00000000G EF 9F 88 PUSHAB 
00000000G_ EF 1 FB Q007F CALLS 
E 0D 8 PUSHL 
00000000G_ EF 4 F CALLS 
9 D F TSTL 
02 1 1 BNEQ 
01 $0 bt 00095 «s: Ena 
F 12 00098 BNEQ 


. AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJDSPENT.BLI; 


9 0, 10, 0 


ECC, PAGEN 

HLLIST IRA, 
ERMS Teed 

Eeeibs” er egee 


SCODES,NOWRT ,2 


DSPENT, Save R2,R3 
E PRE STRING, R$ 


NPAGEN 
RNFQST 
GETQS 


az, 

HANDLER, RO 

RO, #27 

1$ 

#10, OFFSET 

3$ 

RO, #26 

2$ 

#1, OFFSET 

3$ 

#11, OFFSET 

E_PRE_STRING+12 

EPRE-STRING G+16, E_PRE_STRING 
E-PRE-STRING FPR PRE_STRING+4 
E-POST_STRINGS 2 
E-POSTSTRING+16, E_POST_ STRING 
E-POST~STRING € POST ~STRING+4 
P-PRE STRINGSI2 7 
F"PRE-STRING+16, F_PRE_STRING 
F"PRE-STRING, F_P PRE’ STRING+4 
F-PuST_STRING+12 
F-POST-STRING+16, F_POST STRING 
F-POST-STRING, F_POST_STRING+4 
TIPRE_STRING*{2 ~ 
T~PRE-STRING+16, T_PRE STRING 
TIPRE-STRING, 1 PRE_STRING+4 
T=POST_ STRINGSI2 
T“POST“STRING+16, T_POST STRING 
TAPOST_STRING. T’POST_STRING+4 
#1, SKPSEP 

SP 

#1, GéT 

GE fod RESULT 

DISPLAY_COD 

gETDD RESULT, #1 


See Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Fe Se Ge Be Fe Fe Fe Se Se Se Se Se Se Se Se Se Be Se Be Be Be Se Se 


. 
e 
. 
- 
7 
Oo 
. 
o 
e 
o 
+ 
os 
. 
o 
. 
. 
° 
. 
o 
os 
. 
o 
7 
e 
. 
o 
. 
o 
. 
y 
7 
a 
. 
e 
. 
o 
+ 
. 
. 
a 
” 
- 
a 
. 
eo 
2 
o 
- 
om 
- 
a 
. 
a 
- 
o 
. 
ao 
° 
a 
> 
a 
° 
’ 
. 
a 
. 
e 
~ 
a 
° 
o 
- 
e 
. 
o 
. 
a2 
o 
e 
. 
- 
7 
e 
© 
oe 
* 
. 
° 
s 
. 
. 
+ 
a 
7 
o 
o 
e 
7 
. 
. 
a 
° 
a 
o 
e 
7 
° 
. 
e 
° 
o 


ea 0 se a a ss 


M12 
DSPENT Processes the several .DISPLAY <item> directive 16-Sep-1984 221: AX-11 Bliss-32 V4.0-74 Pa 9 
v04-000 DSPENT == main routine 13-88-1382 99:55:69 RUNOFF .SRC DePENT OL I 24 - (4) 
50 52 4 C5 QOO9A MULL3 #36, OFFSET, RO ; 0410 : } 
F DO 0009 MOVL DISPLAY CODE. R1 : ee | 
Q0000000GEF 40 10 18 F A INSV RI, #247 #16, ECC+16CROI : 2 1 
OA E D1 O00AB CMPL OFFSET, #10 ; 0412 Bi 
000000006 EF 04 04 6 B INSV R1, #4, #4, PAGEN+12 + 0415 z | 
000000006 EF 04 4 . £ B INSV R1, #4, #4. NPAGEN+12 + 0416 2 
B 32 D1 000ce 58: CMPL OFFSET, wif ; 0419 : i 
000000006 EF 04 00 21 16 oc INSV = R1, #0, #4, PAGEN+13 F 9422 2 
00000000G_ EF 04 00 1 FO 00000 INSV R11, #0, #4, NPAGEN+13 3 042 2) 
04 00009 6$: x ; 0455 : } 
; Routine Size: 218 bytes, Routine Base: $CODE$ + 0000 : ti 
: 1 
3; ge? 0456 faa 3 
: 330 0457 1 END ! End of module hy 3 
; 331 0458 0 ELUDOM 2 if 
1S 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 166 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC “AL IGN(2) 
; SCODES 218 NOVEC,NOWRT, RD, EXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 
» Library Statistics 
Se ee ee ee ae Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 : Q 252 00:00.1 
3 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 4 86 00:00.2 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DSPENT/OBJ=OBJ$:DSPENT MSRC$:DSPENT/UPDATE=(ENHS$:DSPENT) 
3; Size: 218 code + 166 data bytes 
3: Run Time: :06.9 
3; Elapsed Time: 93 0.1 | 
; Lines/CPU Min: 971 
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DSPENT Processes the s L .DISPLAY <item> di i -Sep- 221: - - -0- 
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; Lexemes/CPU-Min: 23531 
: one | Used: 71 pages 
; Compilation Complete 
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